home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue24 / appbar11 / APPBAR11.ZIP / DEMOPROP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1997-06-29  |  6.0 KB  |  209 lines
  1. unit DemoProp;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ComCtrls, ExtCtrls;
  7.  
  8. type
  9.   TPropDlg = class(TForm)
  10.     pnlPages: TPanel;
  11.     pnlBottom: TPanel;
  12.     pgcMain: TPageControl;
  13.     tabPosition: TTabSheet;
  14.     grpEdge: TGroupBox;
  15.     optEdgeFloat: TRadioButton;
  16.     optEdgeLeft: TRadioButton;
  17.     optEdgeTop: TRadioButton;
  18.     optEdgeRight: TRadioButton;
  19.     optEdgeBottom: TRadioButton;
  20.     grpFlags: TGroupBox;
  21.     chkAllowFloat: TCheckBox;
  22.     chkAllowLeft: TCheckBox;
  23.     chkAllowTop: TCheckBox;
  24.     chkAllowRight: TCheckBox;
  25.     chkAllowBottom: TCheckBox;
  26.     tabAppearance: TTabSheet;
  27.     chkAlwaysOnTop: TCheckBox;
  28.     chkAutohide: TCheckBox;
  29.     tabSizing: TTabSheet;
  30.     tabDocking: TTabSheet;
  31.     tabFloating: TTabSheet;
  32.     lblHorzSizeInc: TLabel;
  33.     lblVertSizeInc: TLabel;
  34.     edtHorzSizeInc: TEdit;
  35.     edtVertSizeInc: TEdit;
  36.     lblZeroIncHint: TLabel;
  37.     updHorzSizeInc: TUpDown;
  38.     updVertSizeInc: TUpDown;
  39.     lblDockTop: TLabel;
  40.     lblDockLeft: TLabel;
  41.     lblDockRight: TLabel;
  42.     lblDockBottom: TLabel;
  43.     edtDockLeft: TEdit;
  44.     edtDockTop: TEdit;
  45.     edtDockRight: TEdit;
  46.     edtDockBottom: TEdit;
  47.     updDockLeft: TUpDown;
  48.     updDockTop: TUpDown;
  49.     updDockRight: TUpDown;
  50.     updDockBottom: TUpDown;
  51.     grpFloatCoords: TGroupBox;
  52.     lblFloatLeft: TLabel;
  53.     edtFloatLeft: TEdit;
  54.     updFloatLeft: TUpDown;
  55.     lblFloatTop: TLabel;
  56.     edtFloatTop: TEdit;
  57.     updFloatTop: TUpDown;
  58.     lblFloatRight: TLabel;
  59.     edtFloatRight: TEdit;
  60.     updFloatRight: TUpDown;
  61.     lblFloatBottom: TLabel;
  62.     edtFloatBottom: TEdit;
  63.     updFloatBottom: TUpDown;
  64.     grpMinMax: TGroupBox;
  65.     lblMinWidth: TLabel;
  66.     edtMinWidth: TEdit;
  67.     updMinWidth: TUpDown;
  68.     lblMinHeight: TLabel;
  69.     edtMinHeight: TEdit;
  70.     updMinHeight: TUpDown;
  71.     lblMaxWidth: TLabel;
  72.     edtMaxWidth: TEdit;
  73.     updMaxWidth: TUpDown;
  74.     lblMaxHeight: TLabel;
  75.     edtMaxHeight: TEdit;
  76.     updMaxHeight: TUpDown;
  77.     lblAuthor: TLabel;
  78.     lblEMail: TLabel;
  79.     lblHomePage: TLabel;
  80.     btnApply: TButton;
  81.     btnCancel: TButton;
  82.     procedure FormShow(Sender: TObject);
  83.     procedure btnApplyClick(Sender: TObject);
  84.   private
  85.     { Private declarations }
  86.   public
  87.     { Public declarations }
  88.   end;
  89.  
  90. var
  91.   PropDlg: TPropDlg;
  92.  
  93. implementation
  94.  
  95. uses Demo, AppBar;
  96.  
  97. {$R *.DFM}
  98.  
  99.  
  100. procedure TPropDlg.FormShow(Sender: TObject);
  101. begin
  102.   // Appearance Page
  103.   chkAlwaysOnTop.Checked  := DemoBar.AlwaysOnTop;
  104.   chkAutoHide.Checked     := DemoBar.AutoHide;
  105.  
  106.   // Position Page
  107.   optEdgeFloat.Checked    := (DemoBar.Edge = abeFloat);
  108.   optEdgeLeft.Checked     := (DemoBar.Edge = abeLeft);
  109.   optEdgeTop.Checked      := (DemoBar.Edge = abeTop);
  110.   optEdgeRight.Checked    := (DemoBar.Edge = abeRight);
  111.   optEdgeBottom.Checked   := (DemoBar.Edge = abeBottom);
  112.  
  113.   chkAllowFloat.Checked   := (abfAllowFloat  in DemoBar.Flags);
  114.   chkAllowLeft.Checked    := (abfAllowLeft   in DemoBar.Flags);
  115.   chkAllowTop.Checked     := (abfAllowTop    in DemoBar.Flags);
  116.   chkAllowRight.Checked   := (abfAllowRight  in DemoBar.Flags);
  117.   chkAllowBottom.Checked  := (abfAllowBottom in DemoBar.Flags);
  118.  
  119.   // Sizing Page
  120.   updHorzSizeInc.Position := DemoBar.HorzSizeInc;
  121.   updVertSizeInc.Position := DemoBar.VertSizeInc;
  122.  
  123.   // Docking Page
  124.   updDockLeft.Position    := DemoBar.DockDims.Left;
  125.   updDockTop.Position     := DemoBar.DockDims.Top;
  126.   updDockRight.Position   := DemoBar.DockDims.Right;
  127.   updDockBottom.Position  := DemoBar.DockDims.Bottom;
  128.  
  129.   // Floating Page
  130.   updFloatLeft.Position   := DemoBar.FloatRect.Left;
  131.   updFloatTop.Position    := DemoBar.FloatRect.Top;
  132.   updFloatRight.Position  := DemoBar.FloatRect.Right;
  133.   updFloatBottom.Position := DemoBar.FloatRect.Bottom;
  134.  
  135.   updMinWidth.Position    := DemoBar.MinWidth;
  136.   updMinHeight.Position   := DemoBar.MinHeight;
  137.   updMaxWidth.Position    := DemoBar.MaxWidth;
  138.   updMaxHeight.Position   := DemoBar.MaxHeight;
  139. end;
  140.  
  141.  
  142. procedure TPropDlg.btnApplyClick(Sender: TObject);
  143. begin
  144.   // Appearance Page
  145.   DemoBar.AlwaysOnTop := chkAlwaysOnTop.Checked;
  146.   DemoBar.AutoHide    := chkAutoHide.Checked;
  147.  
  148.   // Position Page
  149.   if optEdgeFloat.Checked then
  150.     DemoBar.Edge := abeFloat
  151.   else if optEdgeLeft.Checked then
  152.     DemoBar.Edge := abeLeft
  153.   else if optEdgeTop.Checked then
  154.     DemoBar.Edge := abeTop
  155.   else if optEdgeRight.Checked then
  156.     DemoBar.Edge := abeRight
  157.   else if optEdgeBottom.Checked then
  158.     DemoBar.Edge := abeBottom;
  159.  
  160.   if chkAllowFloat.Checked then
  161.     DemoBar.Flags := DemoBar.Flags + [abfAllowFloat]
  162.   else
  163.     DemoBar.Flags := DemoBar.Flags - [abfAllowFloat];
  164.  
  165.   if chkAllowLeft.Checked then
  166.     DemoBar.Flags := DemoBar.Flags + [abfAllowLeft]
  167.   else
  168.     DemoBar.Flags := DemoBar.Flags - [abfAllowLeft];
  169.  
  170.   if chkAllowTop.Checked then
  171.     DemoBar.Flags := DemoBar.Flags + [abfAllowTop]
  172.   else
  173.     DemoBar.Flags := DemoBar.Flags - [abfAllowTop];
  174.  
  175.   if chkAllowRight.Checked then
  176.     DemoBar.Flags := DemoBar.Flags + [abfAllowRight]
  177.   else
  178.     DemoBar.Flags := DemoBar.Flags - [abfAllowRight];
  179.  
  180.   if chkAllowBottom.Checked then
  181.     DemoBar.Flags := DemoBar.Flags + [abfAllowBottom]
  182.   else
  183.     DemoBar.Flags := DemoBar.Flags - [abfAllowBottom];
  184.  
  185.   // Sizing Page
  186.   DemoBar.HorzSizeInc := updHorzSizeInc.Position;
  187.   DemoBar.VertSizeInc := updVertSizeInc.Position;
  188.  
  189.   // Docking Page
  190.   DemoBar.DockDims := Rect(updDockLeft.Position,
  191.                            updDockTop.Position,
  192.                            updDockRight.Position,
  193.                            updDockBottom.Position);
  194.  
  195.   // Floating Page
  196.   DemoBar.FloatRect := Rect(updFloatLeft.Position,
  197.                             updFloatTop.Position,
  198.                             updFloatRight.Position,
  199.                             updFloatBottom.Position);
  200.  
  201.   DemoBar.MinWidth  := updMinWidth.Position;
  202.   DemoBar.MinHeight := updMinHeight.Position;
  203.   DemoBar.MaxWidth  := updMaxWidth.Position;
  204.   DemoBar.MaxHeight := updMaxHeight.Position;
  205. end;
  206.  
  207. end.
  208.  
  209.